﻿Public Class Articulo

    Dim _ARTCOD, _ARTDESC, _FAMCOD, _UNMCOD, _UNMDESC As String
    Dim _ARTPERC, _ARTZEMR, _ARTACT As String
    Dim _ARTDESP, _ARASTOCK As Integer
    Dim _PROVCOD, _PROVDES As String

    Sub New()

    End Sub

    Sub New(artcod As String, artdesc As String, famcod As String, unmcod As String, artperc As String,
            artzemr As String, unmdesc As String, artdesp As Integer, arastock As Integer, provcod As String, provdes As String, artact As String)
        Me._ARTCOD = artcod
        Me._ARTDESC = artdesc
        Me._FAMCOD = famcod
        Me._UNMCOD = unmcod
        Me._ARTPERC = artperc
        Me._ARTZEMR = artzemr
        Me._UNMDESC = unmdesc
        Me._ARTDESP = artdesp
        Me._ARASTOCK = arastock
        Me._PROVCOD = provcod
        Me._PROVDES = provdes
        Me._ARTACT = artact
    End Sub

    Public Property ART_Codigo() As String
        Get
            Return _ARTCOD
        End Get
        Set(value As String)
            _ARTCOD = value
        End Set
    End Property

    Public Property ART_Descripcion() As String
        Get
            Return _ARTDESC
        End Get
        Set(value As String)
            _ARTDESC = value
        End Set
    End Property

    Public Property FAM_Codigo() As String
        Get
            Return _FAMCOD
        End Get
        Set(value As String)
            _FAMCOD = value
        End Set
    End Property

    Public Property UNM_Codigo() As String
        Get
            Return _UNMCOD
        End Get
        Set(value As String)
            _UNMCOD = value
        End Set
    End Property

    Public Property ART_Percepcion() As String
        Get
            Return _ARTPERC
        End Get
        Set(value As String)
            _ARTPERC = value
        End Set
    End Property

    Public Property ART_ZEmergencia() As String
        Get
            Return _ARTZEMR
        End Get
        Set(value As String)
            _ARTZEMR = value
        End Set
    End Property

    Public Property UNM_Descripcion() As String
        Get
            Return _UNMDESC
        End Get
        Set(value As String)
            _UNMDESC = value
        End Set
    End Property

    Public Property ART_Despacho() As String
        Get
            Return _ARTDESP
        End Get
        Set(value As String)
            _ARTDESP = value
        End Set
    End Property

    Public Property ARA_Stock() As Integer
        Get
            Return _ARASTOCK
        End Get
        Set(value As Integer)
            _ARASTOCK = value
        End Set
    End Property

    Public Property PROV_Codigo() As String
        Get
            Return _PROVCOD
        End Get
        Set(value As String)
            _PROVCOD = value
        End Set
    End Property

    Public Property PROV_Descripcion() As String
        Get
            Return _PROVDES
        End Get
        Set(value As String)
            _PROVDES = value
        End Set
    End Property

    Public Property ART_Activo() As String
        Get
            Return _ARTACT
        End Get
        Set(value As String)
            _ARTACT = value
        End Set
    End Property

End Class
